CU Amiga Super CD-ROM 17/CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso/CUCD/Utilities/db/Examples/ARexxDemos/FirstUpper.db

Text File | 1994-09-03 | 359 b | 12 lines

/* Rexxprogram for db that converts the first character of every word in the
   current stringgadget to UPPER
   Written by Richard Ludwig */
options results;GETFIELD;ret=''

if DATATYPE(result)='CHAR' & result~='' then do
    do t=1 to WORDS(result)
        ret=ret||UPPER(LEFT(WORD(result,t),1))SUBSTR(WORD(result,t),2)' '
    end
    PUTFIELD LEFT(ret,length(ret)-1)
END